home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / NewWindow.AmiCAD < prev    next >
Text File  |  2000-04-10  |  894b  |  53 lines
  1. /* Script NewWindow */
  2. /* Version 1.0, 10 avril 2000 © R.Florac */
  3. /* Exemple d'utilisation :
  4.     call 'NewWindow.AmiCAD' nom_fichier
  5.     code = result
  6. */
  7.  
  8. signal on error
  9. signal on syntax
  10.  
  11. options results
  12.  
  13. parse arg nom_fichier
  14. p=address()
  15.  
  16. 'VERSION(0)'
  17. if result < 2.05 then do
  18.     'MESSAGE("Ce script nécessite"+CHR(10)+"AmiCAD 2.05 ou mieux")'
  19.     return -1
  20. end
  21.  
  22. 'NEWSHEET'
  23. code=result
  24. if code < 0 then do
  25.     'MESSAGE("Création nouveau document impossible")'
  26.     return -1
  27. end
  28.  
  29. port = 'AmiCAD.'code
  30. address command
  31. waitforport port
  32. if rc=5 then do
  33.     address VALUE p
  34.     'MESSAGE("Port 'port' non trouvé")'
  35.     return -1
  36. end
  37.  
  38. address VALUE port
  39. 'FILENAME("'nom_fichier'")'
  40.  
  41. return code
  42.  
  43. syntax:
  44. erreur=RC
  45. address VALUE p
  46. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  47. return -1
  48.  
  49. error:
  50. address VALUE p
  51. 'MESSAGE("Erreur en ligne 'SIGL'")'
  52. return -1
  53.